home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / palis102.lha / Palis / PatchTest / doc / PatchTest_SampleInstall next >
Text File  |  1992-09-02  |  1KB  |  35 lines
  1. ;;
  2. ;; an example how to use  patchtest  to find out whether
  3. ;; a patchmanager is available or not and
  4. ;; to copy one to the system, then.
  5. ;;
  6. ;; Note that the file "SaferPatches" is taken from util/misc/SaferPatches.lha
  7. ;; © Martin Adrian 1992
  8. ;;
  9.  
  10. (message "Hi ! I will now check whether you have a patch-manager or not !")
  11.  
  12. (if (= 5 (run "/patchtest LIB=/patchtest.library OFF=-30 QUIET"))
  13.     (if (askbool (prompt "You don't have a patch-manager !\n"
  14.                          "Shall I install SaferPatches for you ?")
  15.                  (help   @askbool-help)
  16.                  (default 1)
  17.         )
  18.         (
  19.           (message   "You need to edit this script here !")
  20.  
  21.           (copyfiles (prompt    "Copying SaferPatches...")
  22.                      (help      "AltF4 !!!")
  23.                      (source    "SaferPatches")
  24.                      (dest      "C:SaferPatches")
  25.           )
  26.           (startup "SAFERPATCHES"
  27.                      (prompt    "I gonna put it to your s:user-startup !")
  28.                      (help      "Gurk")
  29.                      (command   "C:SaferPatches ;**safe patches**")
  30.           )
  31.         )
  32.     )
  33.     (message "All right ! There's a manager !")
  34. )
  35.